home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1102copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.2 KB  |  36 lines
  1. title number = "1102"
  2. Company = "Crack dot Com"
  3. title = "Abuse"
  4. Price = 44.99
  5. Demo = false
  6. Button1 = false
  7. Button2 = false
  8. Button3 = false
  9. Button4 = false
  10. system = "PC CD-ROM"
  11. Title Description = "It's 360 degrees of side-scrolling action. Run, jump, fall and fly in any direction, through industrial corridors, caverns and sewers. Destroy enemies in any direction with grenade launchers, rocket launchers, flame throwers and ion canons! Prepare to Abuse or be Abused!"
  12.  
  13. -------------------------------------
  14. dline = ""
  15. counter = 0
  16. repeat while dline <> title number
  17. counter = counter + 1
  18. dline = GetWord(1,   GetLine(titl,counter) )   
  19. test(dline = title number, LineInTitle = counter)
  20. end repeat 
  21. starttitle = 
  22. num of titles shown = 6
  23. endtitle = starttitle + num of titles shown - 1
  24. titles = ""
  25. title highlight = ""
  26. repeat with counter = starttitle to endtitle
  27. nextline = GetLine(titl,counter)
  28. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  29. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  30. end repeat
  31. dpage = CurrentPageID
  32.  
  33. newtitle = FALSE
  34. end if
  35.  
  36.